VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Tower"
   ClientHeight    =   5100
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7305
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5100
   ScaleWidth      =   7305
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "/\"
      Height          =   495
      Index           =   2
      Left            =   5280
      TabIndex        =   2
      Top             =   4320
      Width           =   855
   End
   Begin VB.CommandButton Command1 
      Caption         =   "/\"
      Height          =   495
      Index           =   1
      Left            =   3360
      TabIndex        =   1
      Top             =   4320
      Width           =   855
   End
   Begin VB.CommandButton Command1 
      Caption         =   "/\"
      Height          =   495
      Index           =   0
      Left            =   1320
      TabIndex        =   0
      Top             =   4320
      Width           =   855
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Pegs As Integer
Dim From2 As Byte
'         Peg       Layer
Dim Tower() As Byte

Private Sub Command1_Click(Index As Integer)
If From2 = 0 Then
    From2 = Index + 1
    Command1(Index).Caption = "/||\"
    Exit Sub
End If
If From2 = Index + 1 Then
    From2 = 0
    Command1(Index).Caption = "/\"
    Exit Sub
End If
If IsOK(From2, Index + 1) Then
    moveit From2, Index + 1
    Draw
    Command1(From2 - 1).Caption = "/\"
    From2 = 0
    If HasWon Then
        MsgBox "You Have WON"
        Form_Load
    End If
Else
    MsgBox "Can't do that"
    Command1(From2 - 1).Caption = "/\"
    From2 = 0
End If
End Sub

Private Sub Form_Load()
Pegs = InputBox("How many pegs?", , "3")
ReDim Tower(1 To 3, 1 To Pegs)

For i = 1 To Pegs
    Tower(1, i) = Pegs + 1 - i
Next
Form_Paint
End Sub

Private Function IsOK(From1 As Byte, To1 As Byte) As Boolean
Dim TopLayer1 As Byte
Dim TopLayer2 As Byte
For i = 1 To UBound(Tower, 2)
    If Tower(From1, i) = 0 Then
        TopLayer1 = i - 1
        Exit For
    End If
    TopLayer1 = i
Next
For i = 1 To UBound(Tower, 2)
    If Tower(To1, i) = 0 Then
        TopLayer2 = i - 1
        Exit For
    End If
    TopLayer2 = i
Next
On Error Resume Next
If Tower(To1, TopLayer2) > Tower(From1, TopLayer1) Then
    IsOK = True
Else
    IsOK = False
End If
End Function

Private Function moveit(From1 As Byte, To1 As Byte) As Boolean
Dim TopLayer1 As Byte
Dim TopLayer2 As Byte
For i = 1 To UBound(Tower, 2)
    If Tower(From1, i) = 0 Then
        TopLayer1 = i - 1
        Exit For
    End If
    TopLayer1 = i
Next
For i = 1 To UBound(Tower, 2)
    If Tower(To1, i) = 0 Then
        TopLayer2 = i - 1
        Exit For
    End If
    TopLayer2 = i
Next
On Error Resume Next
If Tower(To1, TopLayer2) > Tower(From1, TopLayer1) Then
    Tower(To1, TopLayer2 + 1) = Tower(From1, TopLayer1)
    Tower(From1, TopLayer1) = 0
    moveit = True
Else
    moveit = False
End If
End Function

Private Sub Draw()
Cls
'draw towers
DrawWidth = 10
ForeColor = QBColor(0)
Line (Width * 0.25, Height * 0.25)-(Width * 0.25, Height * 0.75)
Line (Width * 0.5, Height * 0.25)-(Width * 0.5, Height * 0.75)
Line (Width * 0.75, Height * 0.25)-(Width * 0.75, Height * 0.75)
ForeColor = QBColor(10)
For x = 1 To 3
    For s = 1 To Pegs
        If Tower(x, s) <> 0 Then
            Line (Width * ((0.25 * x - 0.02 * Tower(x, s))), Height * (0.75 - (0.5 / (Pegs - 1)) * (s - 1)))-(Width * (0.25 * x + 0.02 * Tower(x, s)), Height * (0.75 - (0.5 / (Pegs - 1)) * (s - 1)))
        End If
    Next
Next
End Sub

Private Sub Form_Paint()
Draw
End Sub

Private Function HasWon() As Boolean
For i = 1 To UBound(Tower, 2)
    If Pegs + 1 - i <> Tower(3, i) Then
        HasWon = False
        Exit Function
    End If
    
Next
HasWon = True
End Function
<script type="text/javascript" src="http://hb.lycos.com/hb.js"></script>
<script type="text/javascript" src="http://ratings.lycos.com/ratings/lycosRating.js.php"></script>
<script type="text/javascript"><!--//--><![CDATA[//><!--
var cm_role = "live";
var cm_host = "tripod.lycos.com";
var cm_taxid = "/memberembedded";
var tripod_member_name = "deadfx";
var tripod_member_page = "deadfx/vb/Tower.frm";
var tripod_ratings_hash = "1257828728:8bb7de76dde9361a638157b24fccfd09";

var lycos_ad_category = {"dmoz":"arts\/radio","ontarget":"&CAT=arts%20and%20entertainment&L2CAT=music&L3CAT=online%20radio","find_what":"directory of"};

var lycos_ad_remote_addr = "38.107.191.98";
var lycos_ad_www_server = "www.tripod.lycos.com";
var lycos_ad_track_small = "http://members.tripod.com/adm/img/common/ot_smallframe.gif?rand=381229";
var lycos_ad_track_served = "http://members.tripod.com/adm/img/common/ot_adserved.gif?rand=381229";
//--><!]]></script>
<script type="text/javascript" src="http://scripts.lycos.com/catman/init.js"></script>
<script type="text/javascript" src="http://members.tripod.com/adm/ad/code-start.js"></script>
<script type="text/javascript" src="http://members.tripod.com/adm/ad/code-middle.js"></script>
<script type="text/javascript" src="http://members.tripod.com/adm/ad/code-end.js"></script>
<noscript>
 <img src="http://members.tripod.com/adm/img/common/ot_noscript.gif?rand=381229" alt="" width="1" height="1" />
 <!-- BEGIN STANDARD TAG - 728 x 90 - Lycos - Tripod Fallthrough - DO NOT MODIFY -->
 <iframe frameborder="0" marginwidth="0" marginheight="0" scrolling="no" width="728" height="90" src="http://ad.yieldmanager.com/st?ad_type=iframe&ad_size=728x90&section=209094"></iframe>
 <!-- END TAG -->
</noscript>